home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
MOVPARM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-02-13
|
460b
|
29 lines
PROGRAM MOVParameter;
USES Crt;
PROCEDURE Foo(Foe,Fum : Integer);
VAR
Fee,Fie : Integer;
BEGIN
Fee := 0; Fie := 0;
Writeln('Fum=',Fum);
INLINE($8B/$8E/Foe); {MOV CX,Foe}
INLINE($89/$8E/Fee); {MOV Fee,CX}
Writeln('Fee=',Fee);
Readln;
INLINE($8B/$96/Fee); {MOV DX,Fee}
INLINE($89/$96/Fum); {MOV Fum,DX}
Writeln('Fum=',Fum);
Readln;
END;
BEGIN
ClrScr;
Foo(42,17);
END.